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-- BcdDef S.Mesa Edited by Satterthwaite on March 21, 1978 11:50 AM 

DIRECTORY 

AltoDefs: FROM "altodefs", 
ControlDefs: FROM "controldef s", 
TablGDefs: FROM "tabledefs". 
TimeDefs: FROM "timedefs" ; 

BcdDefs: DEFINITIONS ■ 
BEGIN 

-- allocation codes for the binder 



TableSelector: TYPE = TableDefs. 

BinderNTables: CARDINAL - 12; 
treetype: TableSelector « 0; 
httype: TableSelector ■ 
sstype: TableSelector « 
cttype: TableSelector « 
mttype: TableSelector = 
imptype: TableSelector 
exptype: TableSelector 
sgtype: TableSelector « 
fttype: TableSelector =» 
sttype: TableSelector « 
cxtype: TableSelector « 10; 
nttype: TableSelector » 11; 



TableSelector; 

trees 

hash table 

(packed) string table 
config table 
module table 
import table 
export table 
segment table 
file table 
semantic table 
context table 
name table 



TableLimit: CARDINAL = TableDefs .TableLimit; 



-- version identification 

VersionStamp: TYPE = RECORD [ 
zapped: BOOLEAN, 
net: [0..128). 
host: AltoDefs. BYTE, 
time: TimeDefs. PackedTime]; 

-- BCD Header 

VersionID: CARDINAL « 01268; 

BCD: TYPE - RECORD [ 
versionident: CARDINAL, 
version: VersionStamp, 
creator: VersionStamp, 
bound: VersionStamp, 
nPages: Al toDef s .PageCount, 
nConfigs, nModules: CARDINAL, 
nimports, nExports: CARDINAL, 
definitions: BOOLEAN, 
firstdummy: GFTIndex, 
nDummies: CARDINAL, 
ssOffset: CARDINAL, 
ssLimit: CARDINAL, 
ctOffset: CARDINAL, 
ctLimit: CTIndex, 
mtOffset: CARDINAL, 
mtLimit: MTIndex, 
impOffset: CARDINAL, 
impLimit: IMPIndex, 
expOffset: CARDINAL, 
expLimit: EXPIndex, 
sgOffset: CARDINAL, 
sgLimit: SGIndex, 
ftOffset: CARDINAL, 
ftLimit: FTIndex, 
ntOffset: CARDINAL, 
ntLimit: NTIndex, 
source: NameRecord, 
sourceVersion: VersionStamp]; 



string table 
config table 
module table 
import table 
export table 
segment table 
file table 
name table 



-- Portable Type 

Portable: TYPE « {module, interface}; 
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-- Name Table 

PackedString: TYPE - MACHINE DEPENDENT RECORD [ 
SELECT OVERLAID * FROM 

string «> [string: StringBody], 

size «> [size: PACKED ARRAY [-3..-1) OF AUoDef s .BYTE] , 

ENDCASE]; 

NameString: TYPE ■ POINTER TO PackedString; 

NameRecord: TYPE - RECORD [CARDINAL]; 

NuHName: NameRecord « [1]; 

NTRecord: TYPE » RECORD [ 
name: NameRecord, 
item: Namee]; 

Namee: TYPE = RECORD [ 
SELECT type:* FROM 

config => [cti: CTIndex], 

module => [mti: MTIndex], 

import => [impi: IMPIndex], 

export => [expi: EXPIndex], 
ENDCASE]; 

NTNull: NTIndex = LAST[NTIndex]; 

NTIndex: TYPE = POINTER [0. .TableLimi t) TO NTRecord; 

NTHandle: TYPE = POINTER TO NTRecord; 



-- Configuration Table 

CTRecord: TYPE = RECORD [ 
name: NameRecord, 
namedinstance: BOOLEAN, 
file: FTIndex, 
config: CTIndex, 
control: MTIndex]; 

CTNull: CTIndex = LAST[CTIndex]; 

CTIndex: TYPE » POINTER [0 . . TableLimit) TO CTRecord; 

CTHandle: TYPE = POINTER TO CTRecord; 



-- Module Table 

LinkLocation: TYPE = {frame, code}; 

MTRecord: TYPE = RECORD [ 
name: NameRecord, 
namedinstance: BOOLEAN, 
initial: BOOLEAN, 
file: FTIndex, 
links: LinkLocation, 
config: CTIndex, 
code: CodeDesc, 
sseg: SGIndex, 

framesize: [0. .ControlDef s .MaxFrameSize) , 
fsi: [0. .ControlDefs.MaxAllocSlot], 
gfi: GFTIndex, 

ngfi: [1 . .ControlDef s .MaxNGfi] , 
frame: Frame Frag]; 

CodeDesc: TYPE * RECORD [ 
sgi: SGIndex, 
packed: BOOLEAN, 
linkspace: BOOLEAN, 
offset, length: CARDINAL]; 

FrameFrag: TYPE » RECORD [ 
length: CARDINAL, 
frag: ARRAY [0,.0) OF ControlLink]; 
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MTNull: MTIndex - LAST[MTIndex]; 

MTIndex: TYPE ■ POINTER [0. .TableLimit) TO MTRecord; 

MTHandle: TYPE ■ POINTER TO MTRecord; 



— Import Table 

IMPRecord: TYPE ■ RECORD [ 
name: NameRecord. 
port: Portable, 
namedinstance: BOOLEAN, 
file: FTIndex, 
gfi: GFTIndex, 
ngfi: [1 . .ControlDef s .MaxNGf i]] ; 

IMPNull: IMPIndex » LAST[IMPIndex] ; 

IMPIndex: TYPE - POINTER [0 . .TableLimit) TO IMPRecord; 

IMPHandle: TYPE = POINTER TO IMPRecord; 



-- Export Table 

EXPRecord: TYPE » RECORD [ 
name: NameRecord, 
size: CARDINAL, 
port: Portable, 
namedinstance: BOOLEAN, 
file: FTIndex, 
links: ARRAY [0..0) OF ControlLink]; 

EXPNull: EXPIndex = LAST[EXPIndex] ; 

EXPIndex: TYPE = POINTER [0 .. TableLimit) TO EXPRecord; 

EXPHandle: TYPE = POINTER TO EXPRecord; 



-- Segment Table 

SegClass: TYPE « {code, symbols}; 

SGRecord: TYPE « RECORD [ 
class: SegClass, 
file: FTIndex, 
base: CARDINAL, 
pages, extraPages: [0..256)]; 

SGNull: SGIndex = LAST[SGIndex]; 

SGIndex: TYPE = POINTER [0. . TableLimit) TO SGRecord; 

SGHandle: TYPE = POINTER TO SGRecord; 

-- File Table 

FTRecord: TYPE « RECORD [ 
name: NameRecord, 
version: VersionStamp]; 

FTNull: FTIndex « LAST[FTIndex]; 

FTSelf: FTIndex = LAST[FTIndex]-l; 

FTIndex: TYPE = POINTER [0 .. TableLimit) TO FTRecord; 

FTHandle: TYPE = POINTER TO FTRecord; 



-- Control Link 

GFTIndex: TYPE = ControlDef s .GFTIndex; 
GFTNull: GFTIndex -= ControlDef s .GFTNul 1 ; 

EPIndex: TYPE » ControlDef s .EPIndex; 
EPLimit: CARDINAL « LAST[EPIndex]+l ; 

ControlLinkTag: TYPE « ControlDef s .ControlLinkTag; 
ControlLink: TYPE « ControlDef s. ControlLink; 

NullLink: ControlLink « [procedure[0 ,0 , frame]] ; 
UnboundLink: ControlLink « [procedure[0 ,0 .unbound]]; 
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END. 



